home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
klipdial.zip
/
DIALTEST.PRG
< prev
Wrap
Text File
|
1993-01-04
|
550b
|
25 lines
m_PHONE = SPACE(10)
CLEAR
@ 10, 25 SAY "Enter Phone No. " GET m_phone PICTURE "@R (999) 999-9999"
READ
prefix = "DT"
cmd = "1" + prefix + m_phone && Long Distance
@ 12, 25 SAY "Dialing - Please wait..."
Errcode = DIALIT(cmd)
prompt1 = "Return Code = " + ltrim(str(errcode))
@ 14, 25 SAY prompt1
@ 23, 25 SAY "Press any key to hang up..."
inkey(0)
cmd = "H"
Errcode = DIALIT(cmd)
* CALL DIALIT with cmd && See DOC file!
CLEAR
@ 12, 35 SAY "All Done..."
return